From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 12 Jun 1993 06:54:14 +0000 (+0000)
Subject: (make-directory): By default create dir default-dir.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~95388
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=5ce8bb89cfb5829fe24a09a330ebd2ea367ef885;p=emacs.git

(make-directory): By default create dir default-dir.
---

diff --git a/lisp/files.el b/lisp/files.el
index 96cc510a61c..688b71b5bd4 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -1585,8 +1585,17 @@ or multiple mail buffers, etc."
     (set-buffer-modified-p (buffer-modified-p)))) ; force mode line update
 
 (defun make-directory (dir &optional parents)
-  "Create the directory DIR and any nonexistent parent dirs."
-  (interactive "FMake directory: \nP")
+  "Create the directory DIR and any nonexistent parent dirs.
+Interactively, the default choice of directory to create
+is the current default directory for file names.
+That is useful when you have visited a file in a nonexistint directory.
+
+Noninteractively, the second (optional) argument PARENTS says whether
+to create parent directories if they don't exist."
+  (interactive
+   (list (read-file-name "Make directory: " default-directory default-directory
+			 nil nil)
+	 t))
   (let ((handler (find-file-name-handler dir)))
     (if handler
 	(funcall handler 'make-directory dir parents)